txt <- htmlTreeParse(url, error=function(...){}, useInternalNodes = T)
g <- xpathSApply(txt, "//tr", function(x) xmlValue(x))
g2 <- grep("depth range", g, value=T)
g3 <- toString(str_replace_all(str_replace_all(str_replace_all(g2, "\t", ""), "\n", ""), "\r", ""))
g4 <- strsplit(g3, "depth range ")[[1]][4]